Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/UPPER.PAS

Pascal/Delphi Source File | 1980-01-01 | 724 b | 29 lines

{ ------------------------------------------------
  UPPER function converts alphabetics to uppercase
  ------------------------------------------------ }
Function UPPER  ( S : AnyString) : AnyString;
begin
   InLine ( $1E/
            $8A/$4E/$04/
            $30/$ED/
            $8D/$76/$05/
            $8D/$BE/$04/$01/
            $36/$88/$0D/
            $80/$F9/$00/
            $76/$18/
            $47/
            $8C/$D0/
            $8E/$D8/
            $8E/$C0/
            $FC/
            $8A/$04/
            $3C/$61/
            $72/$06/
            $3C/$7A/
            $77/$02/
            $2C/$20/
            $AA/
            $46/
            $E2/$F0/
            $1F);
end;